﻿Imports BE.BE
Imports BL.BL


Public Class frmSeguimientoExpediente

    Private mExpediente As expediente_BE
    Public Property Expediente() As Expediente_BE
        Get
            Return mExpediente
        End Get
        Set(ByVal value As Expediente_BE)
            mExpediente = value
        End Set
    End Property

    Dim mlista As New List(Of Nota_BE)

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        frmCrearNotaExpediente.MdiParent = frmPrincipal
        frmCrearNotaExpediente.Show()
    End Sub


    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub


    Private Sub frmSeguimientoExpediente_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Helper_FL.setearPermisos(frmPrincipal.usr, Me)

        mlista = Nota_BL.obtenerXExpedente(Expediente.IdExpediente)

        DataGridView1.DataSource = mlista

    End Sub
End Class